<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="comSub.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="function_charCode.asp" -->

<%
call stylefile()
%>

<BODY class=scrollbar1>
<%
call OlineUserList() 

Call conn_Nothing()

sub OlineUserList()
     dim rs,onlinecount,onlinename
    set rs = server.CreateObject("adodb.recordset")
    rs.open "select * from ym_online order By onlinetime desc",conn,1,1          
          if Not rs.Eof then
                 onlinecount = rs.recordCount
                 dim configrs,useronlinecoun,useronlinecounttime
                 set configrs = server.CreateObject("adodb.recordset")
                 configrs.open "select * from option1",conn,1,1
                        if Not configrs.Eof then
                                useronlinecount = configrs("useronlinecount")
                                useronlinecounttime = configrs("useronlinecounttime")
                                if useronlinecount < onlinecount then
                                       Conn.ExeCute("update option1 set useronlinecount="& onlinecount &",useronlinecounttime='"& Now() &"'")
                                        useronlinecount = onlinecount
                                End if
                         End if
                 configrs.close
                 set configrs = Nothing
            End if
%>
            <CENTER>
                              <table border="0" cellspacing="0" cellpadding="0" width="100%" align="center">
                                    <tr><td colspan=6>
                                                 <a href="javascript:this.location.reload()"><img src="images/refresh.gif" alt="" border="0"></a>
                                                 <span style="FONT-SIZE: 9pt">
                                                 <!--    <img style="cursor:hand" src="images/minus.gif" onclick="showsubmenu(1)">  -->
                                                 עû:</span>
                                     </tr>
                                     <tr>
<%
                                                   dim i
                                                   dim ha              
                                                   dim hicount       
                                                   ha=1
                                                   hicount=0
                                                   for i= 1 to rs.recordCount
                                                         onlinename=rs("onlinename")
                                                          if rs("onlinename")<>"ο" then
                                                                zcusernumber=zcusernumber+1
                                                          end if
                                                          if rs("onlinename")="ο" then
                                                                 onlinename=""
                                                          end if
                                                          if rs("hidename")=false then
                                                                  if onlinename<>"" then
                                                                          Response.Write "<td width=120 height=10>"
                                                                          call userStanding(onlinename)
                                                                           Response.Write "<span style='FONT-SIZE: 9pt'>"
                                                                           if session("tslt_username") = onlinename then
                                                                                   Response.Write "<font color=brown>" & onlinename & "</font>"
                                                                          else 
                                                                                    if MyFriend(onlinename) then
                                                                                             Response.Write "<font color=brown>" & onlinename & "</font>"
                                                                                    else
                                                                                             Response.Write  onlinename 
                                                                                    end if
                                                                           end if
                                                                           Response.Write "</td>"
                                                                           ha=ha+1
                                                                           if ha>6 then
                                                                                 ha=1
                                                                                 response.write"<tr>"
                                                                           end if
                                                                  end if
                                                          end if
                                                          if rs("hidename")=true then
                                                                 hicount=hicount+1
                                                          end if
                                                          rs.MoveNext
                                                          If rs.EOF Then Exit For
                                                   next
                                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(0))</SCRIPT>"& onlinecount-zcusernumber &"<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(1))</SCRIPT>"
                                            if hicount<>0 then
                                                   Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(2))</SCRIPT>"& hicount &"<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(3))</SCRIPT>"
                                            end if
%>
                                    </td></tr>
                             </table>
            </CENTER>
<%
      rs.close
      set rs = Nothing
end sub

%>
</BODY>
